﻿Public Class Ejemplo

    'Private asdf As Integer
    'Private Sub Ejemplo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '    Dim objGestorPaciente As Laboratorio_Negocio.GestorPacientes = New Laboratorio_Negocio.GestorPacientes
    '    Dim objPaciente As Laboratorio_Negocio.CapaDeNegocio.Paciente

    '    objPaciente = objGestorPaciente.GetPaciente()

    '    Me.txtID.Text = objPaciente.Id
    '    Me.txtNombre.Text = objPaciente.Nombre

    '    Me.ComboBox1.DisplayMember = "Nombre"
    '    Me.ComboBox1.DataSource = Laboratorio_Negocio.GestorPacientes.getPacientes()

    '    Me.grdAlgo.DataSource = Laboratorio_Negocio.GestorPacientes.getPacientes()
    'End Sub

    'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    'End Sub
End Class